0 REM << CD41-6 >>
1 REM ==================================
2 REM    COMMODARES PROBLEM #37-2 :
3 PRINT"[147]OUTCAST ORDER"
4 REM    SOLUTION BY
5 REM    MIKE STRAWN
6 REM ==================================
10 INPUT"N,M";N,M :DIM A(N) :FOR I=0 TO N-1: A(I)=I+1 : NEXT : A(N)=1
20 FOR I=1 TO M: PP=P: P=A(P): NEXT: PRINT P;: A(PP)=A(P): IF P<>PP THEN 20